/*  sdfsf2sd.cpp  by K.Tsuru  */
// function ID = 300    DRADIX
/**********************************************
SDouble and SFraction classes
It provides the conversion SFraction-->SDouble
***********************************************/
#ifndef SN_H
#include "sn.h"
#endif
SDouble SFToSD(const SFraction& x){
    SDouble r, d;
    SFraction y(x);
    r = y.Num();    d = y.Den();    //call reduce(1)
    r = r/d;
    return r;
}